home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Games / Tetris / Source / RCS / wraps.psw,v < prev   
Encoding:
Text File  |  1971-02-13  |  777 b   |  51 lines
  1. head     1.1;
  2. branch   ;
  3. access   ;
  4. symbols  ;
  5. locks    ;
  6. comment  @@;
  7.  
  8.  
  9. 1.1
  10. date     91.12.07.03.37.15;  author melling;  state Exp;
  11. branches ;
  12. next     ;
  13.  
  14.  
  15. desc
  16. @Tetris 1.1
  17. @
  18.  
  19.  
  20.  
  21. 1.1
  22. log
  23. @Initial revision
  24. @
  25. text
  26. @defineps PSgameover(float w)
  27.     gsave
  28.     (Times-Bold) findfont 48.0 scalefont setfont
  29.     0.333 setgray
  30.     (GAME) dup stringwidth
  31.     44.0 add exch 2 div w 2 div exch sub exch
  32.     3 copy 3 copy
  33.     exch 2.0 add exch moveto show
  34.     0.0 setgray
  35.     exch 2.0 sub exch moveto show 
  36.     1.0 setgray
  37.     moveto show 
  38.  
  39.     0.333 setgray
  40.     (OVER) dup stringwidth
  41.     4.0 add exch 2 div w 2 div exch sub exch
  42.     3 copy 3 copy
  43.     exch 2.0 add exch moveto show
  44.     0.0 setgray
  45.     exch 2.0 sub exch moveto show 
  46.     1.0 setgray
  47.     moveto show 
  48.     grestore
  49. endps
  50. @
  51.